Attribute VB_Name = "modChatHandler"
Public Sub AddChat(ParamArray saElements() As Variant)
Dim i As Integer, s As String
  With frmChat.rtbchat
    If .SelStart > 100000 Then
      .SelStart = 0
      .SelLength = 50000
      .SelText = vbNullString
    End If
    'clears if too long
    
    .SelStart = 99999
    .SelLength = 0
    .SelColor = vbWhite
    .SelText = "[" & Time & "] "
 
    For i = LBound(saElements) To UBound(saElements) Step 2
      .SelStart = 99999
      .SelLength = 0
      .SelColor = saElements(i)
      .SelText = saElements(i + 1) & Left$(vbCrLf, -2 * CLng((i + 1) = UBound(saElements)))
    Next i
    .SelStart = 99999
    .SelLength = 0
    .SelText = vbNullString
    
  End With
End Sub

Public Sub AddThanks(ParamArray saElements() As Variant)
Dim i As Integer, s As String
  With frmAbout.rtbThanks
    If .SelStart > 100000 Then
      .SelStart = 0
      .SelLength = 50000
      .SelText = vbNullString
    End If
    'clears if too long
    
    .SelStart = 99999
    .SelLength = 0
    .SelColor = vbWhite
 
    For i = LBound(saElements) To UBound(saElements) Step 2
      .SelStart = 99999
      .SelLength = 0
      .SelColor = saElements(i)
      .SelText = saElements(i + 1) & Left$(vbCrLf, -2 * CLng((i + 1) = UBound(saElements)))
    Next i
    .SelStart = 99999
    .SelLength = 0
    .SelText = vbNullString
    
  End With
End Sub

Public Sub AddNews(ParamArray saElements() As Variant)
Dim i As Integer, s As String
  With frmChat.rtbchat
    If .SelStart > 100000 Then
      .SelStart = 0
      .SelLength = 50000
      .SelText = vbNullString
    End If
    'clears if too long
    
    .SelStart = 99999
    .SelLength = 0
    .SelColor = vbWhite
    .SelText = "[" & Time & "] "
 
    For i = LBound(saElements) To UBound(saElements) Step 2
      .SelStart = 99999
      .SelLength = 0
      .SelColor = saElements(i)
      .SelText = saElements(i + 1) & Left$(vbCrLf, -2 * CLng((i + 1) = UBound(saElements)))
    Next i
    .SelStart = 99999
    .SelLength = 0
    .SelText = vbNullString
    
  End With
End Sub

Public Sub AddRead(ParamArray saElements() As Variant)
Dim i As Integer, s As String
  With frmReadme.rtbRead
    If .SelStart > 100000 Then
      .SelStart = 0
      .SelLength = 50000
      .SelText = vbNullString
    End If
    'clears if too long
    
    .SelStart = 99999
    .SelLength = 0
    .SelColor = vbWhite
    .SelText = ""
 
    For i = LBound(saElements) To UBound(saElements) Step 2
      .SelStart = 99999
      .SelLength = 0
      .SelColor = saElements(i)
      .SelText = saElements(i + 1) & Left$(vbCrLf, -2 * CLng((i + 1) = UBound(saElements)))
    Next i
    .SelStart = 99999
    .SelLength = 0
    .SelText = vbNullString
    
  End With
End Sub
